#!/usr/local/bin/perl

opendir(DIR, "./") || die "can't opendir";
@files= grep{/txt/}readdir(DIR);
#print @files;

$x=0;

foreach $file (@files){
$oldfile=$file;
$file=($file);
$file= substr($file, 3,3);
$file=int($file);
$file=$file.".txt";
if($file){rename($oldfile,$file);}
print $oldfile."   ".$file."\n";

}

